home *** CD-ROM | disk | FTP | other *** search
- REM $INCLUDE: 'fastgraf.bi'
-
- DEFINT A-Z
-
- CONST Delay = 2
- CONST Jump = 4
-
- OldMode = FGgetmode
- FGsetmode FGautomode
-
- FGsetcolor 15
- FGmove 0, Jump
- FGdraw FGgetmaxx, Jump
- FGdraw FGgetmaxx, FGgetmaxy-Jump
- FGdraw 0, FGgetmaxy-Jump
- FGdraw 0, Jump
- FGwaitkey
-
- FOR I = 1 TO 6
- FGpan 0, Jump
- FGwaitfor Delay
- FGpan 0, 0
- FGwaitfor Delay
- NEXT
-
- FGsetmode OldMode
- FGreset
-
- END